home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / tjgold.zip / INSTALL.003 / DEMFS5.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-29  |  2KB  |  53 lines
  1. {--------------------------------------------------------------------------}
  2. {                Product: TechnoJock's Turbo Toolkit GOLD                  }
  3. {                                                                          }
  4. {                     TTT GOLD - DEMO PROGRAM                        }
  5. {                                                                          }
  6. {                Copyright 1986-1995  TechnoJock Software, Inc.            }
  7. {                           All Rights Reserved                            }
  8. {                          Restricted by License                           }
  9. {--------------------------------------------------------------------------}
  10.  
  11. {Description:  DEMFS5.PAS
  12.                Illustrates the screen writing functions in the GoldFast
  13.                unit, and the impact of local window coordinates.
  14. }
  15.  
  16. Program DEMFS5;
  17.  
  18. {$I GOLDFLAG.INC}
  19.  
  20. uses DOS,CRT, GoldMisc, GoldAttr, GoldFast;
  21.  
  22. var
  23.   WasOn: boolean;
  24.  
  25. begin
  26. {$IFOPT D+}
  27.    HeapRecord;
  28. {$ENDIF}
  29.    clrscr;
  30.    FillScreen(1,1,80,25,WhiteOnBlack,' ');
  31.    WriteAt(1,1,WhiteOnBlack,'* 1,1 (original)');
  32.    WriteAt(5,5,WhiteOnBlack,'* 5,5 (original)');
  33.    Box(19,7,61,16,30,1); { yellow,blue }
  34.    SetWindow(20,8,60,15);
  35.    FillScreen(1,1,80,25,WhiteOnBlue,' ');
  36.    WriteAt(1,1,LightCyanOnBlack,'* 1,1 (in window)');
  37.    WriteAt(5,5,LightCyanOnBlack,'* 5,5 (in window)');
  38.    WriteAt(20,7,LightCyanOnBlack,'This text is too long to fit!');
  39.    GotoXY(1,2);
  40.    TextColor(LightCyan);
  41.    System.Writeln('Written with Turbo''s Writeln');
  42.    SetWinIgnore(true);   {disable the window}
  43.    WriteRight(80,23,WhiteOnBlack,'Written with WindowOff');
  44.    SetWinIgnore(false);   {disable the window}
  45.    WriteAt(1,8,LightCyanOnBlack,'Window enabled again');
  46.    ResetWindow;
  47.    repeat until keypressed;
  48.    GotoXY(1,25);
  49. {$IFOPT D+}
  50.    HeapCheck;
  51. {$ENDIF}
  52. end.
  53.